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1.0 ABSTRACT 


2.9 


2.1 


<< 


2.3 


2.4 


3.0 


This is a self contained program designed to convert data from 
the GAMMA camera via the NCV11 interface and display it ona 
VSVO1 display. It can be used for camera/interface and — 
joystick setup or for practice in image manipulation. It is 
meant as a exerciser rather than a diagnostic. TOTAL PROGRAM 
CONTROL IS ACCOMPLISHED THRU THE CONSOLE KEYBOARD. THE PROGRAM 

1S NOT CHAINABLE/SCRIPTABLE UNDER XXDP/APT. 


REQUIREMENTS 


Equipment 

1. PDP-11 FAMILY OR LSI-11 FAMILY Computer 
2. I/0 Terminal (i.e., LA36) 

3. NCV11 Interface 

4. Gamma Camera (OR SUBSTITUTE) 

Equipment - Optional 


1. H3060 Joystick 
2. VSVO1 DISPLAY 


PRELIMINARY PRCGRAMS 
MAINDEC-11=DVNCA SHOULD HAVE PREVIOUSLY BEEN RUN 


Storage 


This program uses all of lower 12K of memory. 


LOADING PROCEDURE 


Normal procedure for loading a binary program into memory SHOULD 
BE followed. 


SEQ 0003 


4.0 STARTING PROCEDURE 


Loading address 200 and starting will initialize the system, 
IDENTIFY THE PROGRAM and wait a keyboARd command. 


5.0 OPERATOR OPTIONS 


5.1 OPERATOR KEYBOARD OPTIONS 


"'H’'= HELP OPERATOR AND DISPLAY OR TYPE THIS LIST 

"N= Collect new data from camera - clears core matrix FIRST 

‘Cc’ Collect data from camera - starts NCV11, previous core 
matrix data not cleared 

"x" SELECT ANOTHER CAMERA CHANNEL 

"'S' Stop NCV11 data collection - also terminates free RUN 


MOD 
*'7''= Zoom - Set NCV11 TO GAIN 2 
"R= Regular - SET NCV11 TO GAIN 1 (DEFAULT COND) 
"w'- Select VSVO1 display a Ist bit map 
*M''= Select VSVO1 display USING 2nd bit map 
‘‘A''- Display ISOTOPE A (default cond) 
"B’'- Display ISOTOPE B (B GAMMA) 
‘D'’- Display data - display selected ISOTOPE 
*L' Get lower threshold from keyboard (default=0) - all 


matrix values less than typed value are not si sels ed 


‘U' Get upper threshold from KEYBOARD (default=177777) - 
ALL matrix values greater than typed value are NOT 
DISPLAYED 

"F' Free rum mode - collect and display new data 
continuously - Type ‘’S'’ to terminate this mode 

*x' SELECT ANOTHER CAMERA CHANNEL 

"'G''- Initialize everything - start fresh 

**S''= Joystick calibration NCV11 - use ‘‘Cntrl C*’ to terminate mode 

‘'T''= DISPLAY INTENSITY TEST PATTERN ON SELECTED DISPLAY - 
THIS FEATURE IS FOR DISPLAY VERIFCATION ONLY 

"0" OTHER TERMINAL TO CONTROL THE PROGRAM 


Type ‘‘Cntrl & C'’ = Abort whatever - back to keyboard monitor 


5.2 OPERATOR SWITCH REGISTER OPTION(S) 
NONE 
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6.0 RECOMMENDED OPERATOR ACTION 


6.1 


6.2 


Camera/A017 Setup 


t. 


6. 


Place radioactive flood source IN FRONT OF CAMERA DETECTOR, 
OR USE A WEAK RADIOACTIVE SAMPLE ABOUT 3 FEET FROM A DETECTOR 
WITH THE COLLIMATOR REMOVED. 


Collect data (C) and display (D) 


Adjust the X and Y gain controls ON THE A017 until a _ round 
circle* IS SEEN and centered within the box on screen. 


Increase the circle* size until the edges just begin to TOUCH 
THE BOX. 


Collect data for a 3 minute period and observe the image. If 
there is an artifact on the center of the screen that looks 


like a right angle bracket, the ‘'Z'' delay circuit should be adjusted. 


IF THE MATRIX AND Z COUNTS EQUAL OQ THEN NO DATA WAS 
COLLECTED, THEREFORE, NO DISPLAY. 


* THIS MAY BE A HEXAGON FOR SOME MAKES OF CAMERA. 


Joystick Setup 


4. 


Select Joystick configration by typing ‘‘"’. 


Adjust the Y Pot on the H3060 Joystick so that the HORIZONTAL cross hair 


provide UNIFORM access within the box drawn on the screen. 


ADJUST THE X POT ON THE H35060 SO THAT THE VERTICAL CROSS HAIR WILL 
ALSO BE UNIFORM EXCEPT THAT DUE TO A HARDWARE OFFSET WILL NOT REACH 


THE RIGHT EDGE AND EXCEED THE LEFT EDGE BY THE SAME AMOUNT. 


Ideally, a physcial center of the Joystick will provide a point 


approximately centered in the box. 


Check that when the duvet tek interrupt SWITCH is depressed 
CROSS HAIRS DO not follow the Joystick. 


A‘Cntrl C’' will return user back to the keyboard monitor. 


the 


SEQ 0005 
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MISCELLANEOUS 


Device Bus Address Modifications 

NCV11 Modify location 'NCVADR'' if base bus address is not 
772760 

vSV0O1 Modify location ‘'VTVADR'' if base bus address (CHARACTER 
GENERATOR) IS NOT 772600 
MODIFY LOCATION ‘‘VTMADR'’ IF BASE BUS ADDRESS (BIT MAP) 
IS NOT 772620 


A restart is required after any of the above address 
modifications. 


Free Run Mode (Type ‘*¥*') 

Modification of location ‘‘TIME’' will alter the data collection 
time in the free rum mode. The default value of 20(8) provides 
about 10 SECONDS ON AN LSI-11 CPU. 

Error Reporting 

1. INCORRECT KEYBOARD COMMANDS ARE RESPONDED WITH '?° 


2. A MESSAGE WILL BE REPORTED IF ANY SELECTED DEVICE (SEE SECTION 7.1) 
DOES NOT RESPOND. 


Execution Time 


The EXECUTION TIME is completely dependent upon the user for 
whatever option selected. 
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8.0 PROGRAM DESCRIPTION 


8.1 


8.2 


9.0 


Data Collection & Display 


The user may collect data from the gamma camera system via the 
NCV11_ interface and display this data on 

the VSVO1 (bitmap) display.. All functions are ENTERED thru the 
keyboard as defined in section 5.1. When the data collection 
mode is selected the NCV11 is receiving X & Y data from the gamma 
camera (looking AT a radioactive source). This information is 
transformed via THE address maker LOGIC which forms a_ unique 
address within a defined matrix relative to the scan position of 
the camera. The NCV11 preforms an NPR increment to memory to this 
UNIQUE address. The program selects the address MATRIX 64x64x16 
(RESOLUTION 2) OFFSET TO address 20000(8) FOR THE '‘A* Isotope, 
AND FOR THE “B" ISOTOPE, (CAMERAS EQUIPPED WITH THE DUAL ISOTOPE 
ATTACHMENT) INFORMATION VIA B GAMMA LOGIC IS STORED STARTING AT 
ADDRESS 40000 (8). The intensity of each cell (memory location) 
of the image in memory is adjusted with the upper and lower 
thresholds and scaled to ONE OF 16 intensity levelS. 

The cell with the highest count represents THE 

HIGHEST intensity level, therefore appears brightest on the 
display. At the completion of the image display, the following 
parameters are displayed: 


Lower Threshold - “ — greater than this value are 

isplaye 
Upper Threshold - ALL values above this value are omitted 
CAMERA - SELECTED CAMERA CHANNEL 
PB - UP/DN INDICATOR OF THE PUSH BUTTON STATE DURING LAST COLLECTION 
JB - UP/DN INDICATOR OF THE JOY BUTTON STATE DURING LAST COLLECTION 
Z Count - 32 bit counter of EVENT pulses 


MatRix Count Total count of the contents of each cell in 
the 64x64 matrix 
Displayed if gain was selected 


Displayed if "B’ Isotope selected 


Zoom 
B-Gamma 


Joystick Mode 


Selecting the TEST takes advantage of the Joystick 

mode provided by the NCV11. This mode selects the JOYSTICK inputs 
and the NCV11 performs Like aN A/D with the X & Y CONVERTED values 
available in X-Y gree register. The X and Y data is applied 
to the display and shoul 

THE VSVO1 uses the X & Y cross hairs as the DISPLAY indicator. 


LISTING 


conform to the requirements in section 6.2. 


SEQ 0007 


CZNCDA Pai ets MACY11 27(654) 8=AUG-78 15:16 


CZNCDA.P E OF CONTENTS 
17 BASIC DEFINITIONS 
133 TRAP CATCHER 
142 STARTING ADDRESS(ES) 
146 COMMON TAGS 
187 ERROR POINTER TABLE 
274 MAIN PROGRAM 
276 INITIALIZE THE COMMON TAGS 
380 KEYBOARD DISPATCH TABLE 
408 COMMAND DECODER 
556 PROGRAM ROUTINES 
818 PROGRAM SUBROUTINES 
1040 TTY INPUT ROUTINE 
1209 TYPE ROUTINE 
1280 BINARY TO OCTAL (ASCII AND TYPE 
1358 READ AN OCTAL NUMBER FROM THE TTY 
1412 TRAP DECODER 
1435 TRAP TABLE 
1455 POWER DOWN AND UP ROUTINES 
1497 DISPLAY MESSAGES 


ASCII MESSAGES 


SEQ 0008 


CZNCDA NCV11 EXERCISER MACY11 27(654) 8-AUG-78 15:16 PAGE 1 
CZNCDA.P11 


TITLE CZNCDA WNCV11 EXERCISER 
:*COPYRIGHT (C) 1978 

; *DIGITAL EQUIPMENT * ae 
AS. MASS. 01754 


: #PROGRAM BY R.SHOOP 


THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
; *PACKAGE (MAINDEC=11-DZQAC-C3), JAN 19, 1977. 


000001 $1N 
160000 $SuR-160000 “HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
172769 ABASE= 173760 :DEFAULT NCV11 ADDRESS 

.SBTTL BASIC Bee Ins TIONS 


z*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
STACK= 1100 

-EQUIV EMT,ERROR 3 :BASIC DEFINITION OF ERROR CALL 
-EQUIV I0T,SCOPE 7;BASIC DEFINITION OF SCOPE CALL 


; *MI SCELLANEOUS DEFINITIONS 
HT= 11 :CODE FOR HORIZONTAL TAB 
CODE FOR LINE FEED 
;;CODE FOR CARRIAGE RETURN 
000200 00 3;CODE FOR CARRIAGE RETURN-LINE FEED 
177776 P ;zPROCESSOR STATUS WORD 


177774 7;STACK LIMIT REGISTER 


WON AURBWN OO OONAUSWNH = 


Oo 


177772 ;;PROGRAM INTERRUPT REQUEST REGISTER 
177570 3 HARDWARE SWITCH REGISTER 
177570 177570 ; HARDWARE DISPLAY REGISTER 


3 *GENERAL PURPOSE REGISTER DEFINITIONS 
RO= x0 ERAL REGISTER 


R2= 

R3= 

R4= 

R5= $3 RAL 

R6= 33 REGISTER 
R7= ;;GENERAL REGISTER 
SP= :: STACK POINTER 
PC= PROGRAM COUNTER 


z*PRIORITY LEVEL DEF INI TIONS 
PRO= 0 I 


NOUS WN Oo 


: PRIORITY 





CZNCDA NCV11 EXERCISER MACY11 27(654) 8-AUG-78 15:16 PAGE 2 
CZNCDA.P11 BASIC DEFINITIONS SEQ 0010 


3*""SWITCH REGISTER’’ SWITCH DEFINITIONS 
SW15= 100000 


B1T01,BIT1 
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CZNCDA.P11 BASIC DEFINITIONS SEQ 0011 


-EQUIV B1TO00,BITO 


;*BASIC *'CPU'* TRAP VECTOR _ADDRESSES 
EC= ME OUT AND OTHER ERRORS 
:SRESERVED AND ILLEGAL INSTRUCTIONS 


3: TRACE TRAP 

3 ;BREAKPOINT TRAP (BPT) 

33 INPUT/OUTPUT TRAP (IOT) **SCOPE** 

3;POWER FAIL 

+ sEMULATOR TRAP (EMT) **ERROR** 
;"'TRAP’* TRAP 


peTTY KEYBOARD VECTOR 
;TTY PRINTER VECTOR 
PIRQVEC= 240 PROGRAM INTERRUPT REQUEST VECTOR 


3 3 


ek ad ed od a sd 
NONID S 2 SS SS OS Ss Ss 
WONAOUSWN-O 


No 


;SOME COMMON PROGRAM VALUES AND EQUATES 
MATRIX=20000 STARTING ADRS OF MATRIX DATA 
-SBTTL TRAP CATCHER 


WN 


-=0 
:*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ‘'.+2,HALT"’ 
3; *SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
:#LOCATION, . CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: “WORD 0 7zSOFTWARE DISPLAY REGISTER 
SWREG: .WORD 0 3 SOFTWARE SWITCH REGISTER 
.SBTTL STARTING ADDRESS(ES) 

001322 JMP @ASTART ;; JUMP TO STARTING ADDRESS OF PROGRAM 


.=100 
000340 000002 104,340,RTI ;LSI-11 B EVENT 


1 
1 
1 
1 
1 
1 
1 
. 
, 


BURAK 


RE 
RRW 
=S5 


= 
Ss 
Nm 
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COMMON TAGS 


CZNCDA.P11 


— oe ot es es es SS oe SS 


8-AUG-78 


15:16 PAGE 4 


-SBTTL COMMON TAGS 


SL II IRI IR RRR RRR RRR ERE ERR 


TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 


*THIS 
3; *USED 


SAUTOB: . 


IN THE PROGRAM. 


-=1100 


leleleleleleleleleleon lelelelelelelea) a) 


37 START OF 


COMMON TAGS 

PASS COUNT 

THE TEST NUMBER 

ERROR FLAG 

SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 

MAX. ERRORS PER TEST 

PC OF LAST ERROR aa 


ee INS DATA 
7 sRESERVED--NOT TO BE USED 


3 sAUTOMATIC MODE INDICATOR 
3; INTERRUPT MODE INDICATOR 


ADDRESS OF SWITCH REGISTER 
;;ADDRESS OF DISPLAY REGISTER 
eeTTy KBD STATUS 
TTY KBD BUFFER 
::TTY PRINTER STATUS REG. ADDRESS 
eeTTy PRINTER BUFFER REG. sa 
CONTAINS NULL CHARACTER FOR FILLS 
Z:CONTAINS # OF FILLER CHARACTERS REQUIRED 
22 INSERT FILL CHARS. AFTER A ‘LINE FEED’ 
72''TERMINAL AVAILABLE*’ FLAG (BIT<O7520= YES) 
;sQUESTION MARK 
i: CARRIAGE RETURN 
;3LINE FEED 


PLEA EERE RARE REE EEE REE REE EERE EEE EERE ERE REE KE 


SEQ 0012 
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CZNCDA.P11 ERROR POINTER TABLE SEQ 0013 
184 .SBTTL ERROR POINTER TABLE 
186 :*THIS TABLE CONTAINS THE INFORMATION FOR EACH { 20R THAT CAN OCCUR. 
187 *THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
188 ; *LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
189 : *NOTE1: IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 
190 : *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
ee :* EM ::POINTS TO THE ERROR MESSAGE 
193 t* DH ::POINTS TO THE DATA HEADER 
194 te DT ::POINTS TO THE DATA 
195 te DF ::POINTS TO THE DATA FORMAT 
197 - 
198 001164 SERRTB: 
199 = THIS PROGRAM DOES NOT USE THE ABOVE ERROR TABLE 
201 ; 
202 : ; 
203 
204 
205 
206 
207 :NCV11 BUS ADRS ASSIGNMENTS - MODS ARE TO BE MADE HERE 
209 001164 172760 NCADR: ABASE 
abl :VSVO1 BUS ADRS ASSIGNMENTS (CHAR GEN) - MODS ARE TO BE MADE HERE 
213 001166 172600 VTVADR: 172600 
215 zVSVO1 BUS ADRS ASSIGNMENTS (BIT MAP) - MODS ARE TO BE MADE HERE 
217 001170 172620 VIMADR: 172620 ;FIRST MAP 2ND MAP IS 20 HIGHER 
$30 : COUNTER FOR FREE RUN MODE 
221 001172 000024 TIME: 20. :LOOP COUNTER FOR ‘'F’* MODE 


222 | 


BMW 


. 3 f 
LZNLDA NLVIT EXERCISER MACY11 27(654) 8-AUG-78 15:16 PAGE 6 
CZNCDA.P11 ERROR POINTER TABLE SEQ 0014 
223 3NCV11 REGISTER ADDRESS POINTERS 
224 001174 172760 NCCSR: ABASE NCV11 STATUS CONTROL REGISTER 
225 001176 172762 NCOFF: ABASE+2 =NCV11 OFFSET REGISTER 
226 001200 172764 NCWCR: ABASE+4 3;NCV11 WORD COUNT REGISTER 
227 001202 172766 NCBAR: ABASE+6 3NCV11 BUS ADDRESS REGISTER / LOW Z COUNT 
228 001204 172770 NCSFR: ABASE+10 3NCV11 SPECIAL FUNCTION / JOYSTICK STATUS REGISTER 
229 001206 172772 NCADM: ABASE+12 3NCV11 ADDRESS MAKER REGISTER 
230 001210 172774 NCJOY: noes He sNCVIT J JOYSTICK DATA REGISTER 
231 001212 172776 NCBAR1: ABASE+16 NCV11 SPARE <SAME AS NCBAR> 
232 :VSV01 REGISTER ADDRESS POINTERS (CHARACTER GENERATOR) 
233 001214 172600 VIVCRG: 172600 ; CHAR/STATUS 
234 001216 172602 VIVCHP: 172602 ;CROSS HAIR POS 
235 001220 172604 VTVPOS: 172604 >CHAR POS 
236 :VSVO1 REGISTER ADDRESS POINTERS (BIT MAP) 
237 001222 172620 VIVCSR: 172620 ; COMMAND/ STATUS 
238 001224 172622 VTVMAP: 172622 MAP ADRS 
239 001226 172624 VTVPX: 172624 SPIXEL WD 
240 001230 172626 VTVPX1: 172626 sPIXEL BYTE 
5 001232 172630 VTIVINT: 172630 ; INTENSITY LOOK UP 
243 ; COMMON PROGRAM TAGS AND STORAGE LOCATIONS 
244 001234 000000 TEMPO: 0 COMMON UTILITY LOC 
245 001236 000000 TEMP1: O ; COMMON UTILITY LOC 
246 001240 000000 TEMP2: 0 COMMON UTILITY LOC 
247 001242 000000 DUMMY1: 0 SOCTAL TEMP LOC. 
248 001244 000000 DUMMY2: 0 ;OCTAL TEMP LOC. 
249 001246 000000 INTLUT: 0 
250 001250 006400 VTVSAV: 6400 ;VSVO1 SET UP = FULL SCREEN, MONO(BLK/WHT), ENA DISPLAY 
251 001252 MRXADR: 0 ; CURRENT CORE ADRS OF CELL BEING DISPLAYED 
252 001254 R: 0 CURRENT ADRS OF BIT an Ds 
253 001256 000003 PIXCNT: 3 CURRENT PIXEL BYTE C 
254 001260 000000 PIXASM: 0 74 PIXELS ASSEMBLED HERE "BEF ORE BIT MAP LD 
255 001262 000000 KBUFF: OQ CONTAINS KEYBOARD CHAR TYPED 
256 001264 000000 TTYOUT: 0 SOUTPUT CHAR TO PRINTER 
257 001266 000000 THLO: 0 [LOW THRESHOLD VALUE APPLIED TO MATRIX CELLS 
258 001270 177777 THHI: 177777 HIGH THRESHOLD VALUE APPLIED TO MATRIX CELLS 
259 001272 COMSAV: 0 SAVED NCV11 CSR CONTENTS WHEN DISPLAYING 
001274 CAMERA: 0 Bg SELECTION IN BITS 8-9 
261 001276 N: 0 3GAIN 1=0, GAIN 2=B1T10 
262 001300 010000 TOTSIZ: 4096. [TOTAL # OF CELLS IN MATRIX (ISTOPE A OR B) 
263 001302 000000 CHARCT: 0 :COUNTS TOTAL # OF CELLS IN MATRIX (ISOTOPE A OR B) 
264 001304 000000 CPERL: 0 ZCONTAINS LARGEST CELL OF MATRIX WITHIN THRESHOLDS 
265 000000 ROWCNT: O :COUNTS 64 CELLS EACH ROW OF CORE MATRIX 
001310 020000 TABLEX: MATRIX [CONTAINS STARTING ADRS OF MATRIX OF geuecice Ba gp ops 
267 001312 000000 FREERN: 0 :NON-ZERO SAYS COLLECT NEW git & DISPLAY IN FREE RUN MO 
001314 000000 MSELCT: 0 70 SAYS 1ST BIT MAP, -1 oak, 2ND BIT MAP(VSV01) 
269 001316 000000 BELLEN: 0 :0 SAYS RING BELL ON NO CONVERT, -1 SAYS DON'T 
270 001320 000000 NOVSV: 0 :NON-ZERO INDICATES NO vsvol DISPLAY 


CZNCDA NCV11 EXERCISER MACY11 27(654) 
CZNCDA.P11 MAIN PROGRAM 


001322 


012737 


013746 


005037 


001100 
001140 
001100 


177777 


001440 
000176 
000174 
000004 


010003 
004440 


001320 
010121 


001164 
001174 


000002 
001214 


001544 
177432 


010241 
000006 


020000 
001266 


000034 
000036 
000024 
000026 


000004 


177512 


001140 
001142 


000004 


000004 


177400 
001310 
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START: 
-SBTTL_ INITIALIZE THE COMMON TAGS 
CLEAR bi COMMON TAGS ($CMTAG) AREA 


A#SCMTAG ,R6 <i tlEAR LOCATION TO BE CLEARED 
CLR (R6)+ CLEAR MEMORY LOCATION 
CMP #SWR,R6 ;;DONE? © 
BNE ~6 ;;LOOP BACK IF NO 

#STACK, SP 7sSETUP THE STACK POINTER 


MOV 
ss INITIALIZE A FEW VECTORS 
MOV MSTRAP ,AATRAPVEC ;;TRAP_VECTOR FOR TRAP CALLS 
MOV #340, a#TRAPVEC+2;LEVEL 7 
MOV #SPWRDN , aAPWRVEC Arg FAILURE VECTOR 
MOV #340,aMPWRVEC+2 ;:LEVEL 7 
3sSIZE FOR A HARDWARE SWITCH REGISTER. iF NOT FOUND OR IT IS 
7;EQUAL TO A’ SETUP FOR A SOFTWARE SWITCH REGISTER. 
MOV @YERRVEC,-(SP) ;;SAVE ERROR VECTOR 
MOV #64S , AAERRVEC 23SET UP ERROR VECTOR 


MOV ADSWR , SWR SETUP FOR A HARDWARE SWICH REGISTER 
MOV ADDISP,DISPLAY 3 SAND A HARDWARE DISPLAY REGISTER 
CMP #~-1 ,ASWR TRY TO REFERENCE HARDWARE SWR 
BNE 66$ BRANCH IF NO TIMEOUT TRAP OCCURRED 
2 ¢AND THE HARDWARE SWR IS NOT = -1 

BR 65$ BRANCH IF NO TIMEOUT 

64$: at #65$, (SP) T:SET UP FOR TRAP RETURN 

65$: MOV ASWREG, SWR 3sPOINT TO SOFTWARE SWR 


MOV #DISPREG,DISPLAY 
66$: MOV (SP)+,@M#ERRVEC ;;RESTORE ERROR VECTOR 


TYPE -MSG1 :GO IDENTIFY PROGRAM 


JSR PC,SELCTA DEFAULT TO VSVO1 DISPLAY IF THERE 

BCC 3$ BR IF DISPLAY VSVO1 IS THERE 

INC NOVSV SAVE THE FACT NO VSVO1 CONNECTED 

TYPE -MSG3 GO TYPE ‘BUS TIMEOUT ER - VSVO1 DISPLAY" 

HALT ZNO DISPLAY SEEN AT ASSIGNED BUS ADRS'S 
3$: MOV NCADR ,RO [GET NCV11 BASE ADRS 

MOV #NCCSR,R1 :GET POINTER ADRS 
NCSET: MOV RO, (R1)+ SET UP NCV11 REG ADRS PTRS 

ADD #2,RO BUMP REG ADRS 

CMP #VTVCRG,R1 sALL SET UP? 

BNE NCSET :BR_IF NOT 

MOV #1$,ERRVEC ;SET UP TIMEOUT ADRS 

TST @NCCSR WILL TRAP TO LOC 4 IF NOT THERE 

BR START1 BR IF THERE 
1$: CMP (SP)+,(SP)+ FIX STACK SINCE NO RTI 

TYPE -MSG5 G0 TYPE ‘BUS TIMEOUT ER - NCV11" 

HALT NCV11 NOT SEEN AT ASSIGNED BUS ADRS 
START1: MOV #ERRVEC+2, areRRVEC ;RESTORE ERR TRAP LOC TO PT TO 6 

RESET ;CLR WORLD 

JSR PC,NCSTP1 :GO STOP NCV11 & CLR CORE MATRIX 

MOV #MATRIX , QNCOFF :SET OFFSET(ADRS 20000) 

CLR GAIN ; REGULAR 


MOV #MATRIX,TABLEX ISOTOPE A 
CLR THLO [CLEAR LOWER THRESHOLD 


SEQ 0015 


CZNCDA NCV11 EXERCISER MACY11 27(654) 
P11 INITIALIZE THE COMMON T 


CZNCDA.P 


012737 


005037 


177777 


010275 


001312 
001100 
001262 
001674 
001262 


001262 
000101 


177740 
000033 


001740 
001740 


001270 


177300 
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MOV #177777, THHI 
MOV #MKBINT , TKVEC 
MOV #340, TKVEC+2 
MOV #100,a$TKS 
TYPE -MSG6 


;CEILING THRESHOLD 

SET KEYBOARD INTR RETURN ADRS 
;SET UP NEW PRIORTY ON INTR 
;SET INTR ENABLE 

GO ASK FOR KEYBOARD COMMAND (S) 


THIS IS A LIST OF KEYBOARD COMMANDS FOR THE NCV11/DISPLAY/JOYSTICK 


iH HELP FRAME 
2D DISPLAY DATA 
ERASE THE SCOPE 


CHANGE CAMERA 


DISPLAY ISOTOP 


SO4CNZEDWSDWNQUXxOZCECM 


STOP COLLECTION 
INITIALIZE EVERYTHING 
ZOOM - SET GAIN 
REGULAR = SET GAIN TO 1 
DISPLAY ISOTOPE A 


GET LOWER THRESHOLD FROM KEYBOARD & DISPLAY DATA 
GET UPPER THRESHOLD FROM KEYBOARD & DISPLAY DATA 
COLLECT NEW DATA FROM CAMERA (CLEAR CORE MATRIX) 
COLLECT DATA FROM CAMERA 


TO 2 


EB 
SELECT VSVO1 DISPLAY USING 1ST att tod 
SELECT VSVO1 DISPLAY USING 2ND B 
FREE RUN MODE —- COLLECT & DISPLAY "NEW DATA CONTINUALLY 
JOYSTICK CALIBRATION 
DISPLAY INTENSITY TEST IMAGE ON SELECTED DISPLAY 
OTHER TERMINAL TO CONTROL PROGRAM 
: CNTRL C ABORT WHATEVER - BACK TO KEYBOARD MONITOR 


; THIS CODE WILL DISPATCH PROGRAM TO THE PROPER 


;ROUTINE VIA THE DISPATCH TABLE 
LISEN: R FREERN 


CL 
MOV ASTACK, SP 
CLR KBUF F 
CLR -(SP) 
MOV #LISN,-(SP) 
RTI 

LISN: MOV KBUF F ,RO 
BEQ LISN 
CLR KBUF 
CMP RO,4101 
BCS 0 


BOOB00 
BIC #177740,RO 
CMP RO ,433 
BCC a 
TST RTABLE~2(RO) 


BOOBOO 
JMP @RTABLE=2 (RO) 


*RTABLE* 

KNOCK DOWN FREE RUN MODE IF SET 
=RESET STACK PTR 

; INSURE NO KEYBOARD GARBAGE 
;PUSH LEVEL 0 ONTO STACK 

;TO BE LSI-11 COMPATABLE 

SFAKE RTI TO LOWER PRIORITY 
;LOOK FOR CHAR 

[WAIT FOR ONE 


:WAS IT A CHAR? 

NOT A GOOD CHAR 
sELIMINATE LOWER CASE 
21S IT Te HA CHAR? 


BR IF 

MAKE UP WORD OFFSET 
71S IT A LEGAL COMMAND? 
;BR IF NOT 

:GO DO IT 


SEQ 0016 


CZNCDA NCV11 EXERCISER MACY11 27(654) 8-AUG-78 15:16 PAGE 9 
CZNCDA.P11 INITIALIZE THE COMMON TAGS SEQ 0017 


-SBTTL KEYBOARD DISPATCH TABLE 
RTABLE: ROUTA ; DISPLAY ISOTOPE A 
ROUTB ; 


DISPLAY DATA 

ERASE SCOPE 

FREE RUN MODE(COLLECT NEW DATA & DISPLAY CONTINOUSL 
INITIALIZE EVERYTHING 

HELP THE OPERATOR 


BOOB00 
GO TO NCV11 JOYSTICK CALIBRATION 
BOOB00 


GET LOWER THRESHOLD FROM KEYBOARD 

SELECT VSVO1 DISPLAY USING 2ND BIT MAP 
* GET NEW DATA FROM CAMERA 

GET ADDRESS OF OTHER TERMINAL 

BOOBO00 


B00800 

REGULAR GAIN =1 

STOP COLLECTION 

DISPLAY INTENSITY TEST IMAGE ON SELECTED DISPLAY 
dd UPPER THRESHOLD FROM KEYBOARD 


0B00 
SELECT VSVO1 DISPLAY USING 1ST BIT MAP 
CHANGE CAMERA CHANNEL 
BOOB00 
ZOOM - GAIN = 2 





CZNCDA NCV11 EXERCISER MACY11 Bho 
D DECODER 


CZNCDA.P11 


COMMAND 


012737 
004737 
004737 
000713 


012737 
000137 


000077 
005164 
005144 


001264 


001310 


001310 


001312 


001262 
001262 


177012 


176752 


8-AUG-78 


F 
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COMMAND DECODER 


. SBTT 
REPORTS ILLEGAL KEYBOARD CHARACTERS 


BOOBOO : ; 


#77 ,TTYOUT 


AMATRIX, TABLEX 
CHANGE 
PC,NCSTRT 

LISN 


LISN 

#-1 ,FREERN 
PC ,NCSTP1 
PC,.NCSTRT 
RO 

TIME ,R1 

RO 

1$ 

#B1T5 ,KBUFF 
#123 ,KBUF F 
2$ 
#B1T8,aNCSFR 
@NCCSR 
LISEN 

R1 

1$ 

CHANGE 

PC ERASE 
START1 
NOVSV 

1$ 

PC ERASE 
#2000 ,aVTVPOS 
R5,VTWRIT 


R5,VTWRIT 


#1$,-(SP) 
-MSG2 


3SET UP ‘?° 

s TYPE IT 

3D0 A ‘CR' 

:GO LOOK FOR GOOD CHAR 

WILL DISPLAY ISOTOPE A 

CHANGE DO IT 

AMATRIX+20000, TABLEX 
760 DO 


[GO START NCV11 


F ees DISPLAY ISOTOPE B 


;COLLECT DATA UNTIL KEYBRD COMMAND 
GO DISPLAY DATA 


:GO ON 
SELECT FREE RUN MODE 
;GO STOP NCV11 & CLR CORE MATRIX AREA 


7GO START NCV11 


:SET UP TIMER 
ar GROSS TIMER VALUE 


;CO 

[WAIT FOR ZERO 

;LOOK FOR POSSIBLE STOP KEY - RID LOWER CASE 
STOP uae STRUCK? 


BR IF NO 

STOP NCV11 

;ZERO NCV CSR 

7GO AWAIT NEXT COMMAND 
;DO LOOP AGAIN? 

BR IF SO 


zNOW GO DISPLAY DATA JUST COLLECTED 
:GO ERASE SELECTED DISPLAY 


S INITIALIZE AND START FRESH 
CHECK IF DISPLAY 

7BR_ IF NO VSVO1 

;CLEAR THE SCREEN 


;POSITION THE READ-OUT 
TELL THE OPERATOR VIA VSVO1 


NO VSVO1 = TELL OPERATOR SHORT LIST 


;CALB. THE JOYSTICK GO TO IT 
PUSH HIGH PSW ON STACK 


PUSH RETURN ADDRESS 


“FAKE RTI TO RAISE PSW 
SASK FOR OCTAL DATA 
'GO GET IT 


SEQ 0018 
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CZNCDA.P COMMAND DECODER SEQ 0019 


012637 001266 (SP)+,THLO sSAVE IT 
005046 -(SP) ;PUSH LOW PSW 
002334 #2$,-(SP) 


2$: CHANGE 3GO DISPLAY 
001314 : #~1 ,MSELCT SELECT 2ND BIT MAP 
J PC,SELCTA ;RELOAD ADDRESSES 


VTVCSR,RO GET 2ND BIT MAP ADRS 
177760 #B1T8,-20(RO) ;TURN OFF 1ST BIT MAP 
LISN :GO AWAIT NEXT COMMAND 
PC,.NCSTP1 :GO STOP pte & CLR CORE MATRIX 
PC,NCSTRT START THE NCV11 
LISN COLLECT BATA & AWAIT NEXT KEYBRD COMMAND 
#340,-(SP) RAISE PS 
#1$,-(SP) 


010165 : MSG4 ASK OPR FOR ADDRESS 
GET HIS INPUT 
(SP)+,RO GET ADDRESS 
$ 7BR IF NOT ‘'CR'’ OR O 
002026 BOOBOO FAT FINGER OPERATOR 
000004 2$: @AERRVEC,-(SP) SAVE LOC 4 
002510 000004 #3$ , AMERRVEC TSAVE IF WRONG ADDRESS BY — 
(RO) REF. THE NEW CONSOLE ADDR 
001144 :;GET OLD ADDR. POINTER 
;LOAD NEW ADDRESS 
[BUMP ADDRESS 


‘LOAD NEW ADDRESS 
“BUMP ADDRESS 


ADDRE 
;LOAD NEW ADDRESS 
BUMP ADDRESS 
0,(R1)+ ;LOAD NEW ADDRESS 
—— SRESTORE LOC 4. 


#START ,~(SP) ;LOWER PS AND START PROG AGAIN 


(SP)+, (SP) + CLEAN STACK 
(SP)+,@#ERRVEC ;RESTORE LOC. 4 
(SP) ;LOWER PS 


-(S 
#B00B00 , ~ (SP) 


R : GAIN WANT REGULAR GAIN 
176434 #B1T10,ANCCSR + INSURE REGULAR GAIN 
LISN OMMAND 


176432 : #B1T8,AaNCSFR 
@NCCSR 
LISN OR NEXT COMMAND 
PC.NCSTP ‘60 STOP THE NCV11_ IF RUNNING 
PC,LDIMGE :GO SET UP TEST CORE IMAGE 
CHANGE 7GO DISPLAY IT 
#340,-(SP) 
#1$,-(SP) 





CZNCDA NCV11 EXERCISER 
COMMAND 


CZNCDA.P11 


Hb ors d 


MACY11 27(654) 
DECODER 


010040 
001270 


000400 000020 
002700 
010361 
003002 


177774 003002 


003004 001275 
001274 176206 


002776 
003026 
002000 001276 


001276 176152 
001674 


H 
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8-AUG-78 
1$: TYPE 
RDOCT 
MOV 
CLR 
MOV 
RTI 
2$: JMP 
ROUTW: CLR 
JSR 
NOP 
MOV 
BIC 
JMP 
ROUTX: MOV 
MOV 
RTI 
1$: TYPE, 
RDOCT 
MOV 
NOP 
NOP 
NOP 
BIC 
INC 
CLR 
2$: DEC 
BEQ 
INC 
BR 
3$: MOVB 
BIS 
CLR 
MOV 
RTI 
4$: JMP 
10$: 0 
11$: 0 
ROUTZ MOV 
BIS 
JMP 


-MSG2 
(SP) +, THHI 
-(SP) 
#2$,-(SP) 


MSELCT 
PC,SELCTA 
VTVCSR,RO 
+i ee 20(RO) 


#300, -(SP) 
#1$,-(SP) 


MSG7 
(SP)+,10$ 


#177774 ,10$ 
10$ 


2 
11$,CAMERA+1 
CAMERA, @NCCSR 


-(SP) 
#4$,-(SP) 
CHANGE 
#B1T10,GAIN 


GAIN, aNCCSR 
LISN 


zASK FOR OCTAL DATA 
a GET IT 


SAVE IT 


3GO DISPLAY 


;SELECT 1ST BIT MAP 
; CHANGE ADDRESSES 


3;GET 1ST BIT MAP ADRS 
; TURN OFF 2ND BIT MAP 
:GO AWAIT NEXT COMMAND 


;TELL OPERATOR TO panes CAMERA 
:WAIT FOR HIS INPUT 
T CHAR. 


MASK OFF BITS 


;CLEAR ACTUAL VALUE 


UPDATE ACUTAL 


;UPDATE CAMERA SAVE LOC. 
AND SELECT THAT CAMERA 


RETURN 


; ENABLE 


; GAIN 
;SET IT AT NCV CSR 
7GO AWAIT NEXT COMMAND 


SEQ 0020 


I 
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CZNCDA.P11 ROGRAM ROUTINE SEQ 0021 


.SBTTL PROGRAM ROUTINES 
:GO CLEAR SCREEN OF SELECTED DISPLAY 


004712 CHANGE: JSR PC, ERASE :GO ERASE SCOPE 
:STOP NCV11 AND GET SET TO DISPLAY 
004636 JSR PC,NCSTP :GO STOP NCV11 
:NOW DRAW A BOX AROUND POTENTIAL MATRIX DISPLAY 
TAREA ON THE SELECTED DISPLAY 
001750 Box: MOV #1750,R :SET UP BIT MAP ADRS - TOP LINE 
073567 #73567,R1 ‘SET UP PIXEL DATA IN R1 = INT 7 
004744 PC,DISPY 60 BIT MAP 
1$: RO SADVANCE ADRS 
001770 #1770,RO ; TOP LINE DONE ? 
004756 PC ,DCONT ‘LOAD NEXT PIXEL wD 
BR 1$ “NEXT MAP LOAD 
006010 : #6010,RO ‘SET UP BIT MAP ADRS - BOT LINE 
PC,DISPY “GO LOAD BIT MAP 


RO ADVANCE ADRS 
#6030,RO ;BOT LINE DONE? 
4$ ;BR IF 


: FS 
PC ,DCONT ;LOAD NEXT PIXEL WD 
NEXT MAP LOAD 
#1730,R0 SET UP BIT a4 ADRS SIDE LINES 
#17.RO [OFFSET NEXT R 
#70000.Ri SET UP PIXEL DATA IN R1 = INT 7 
#6047 RO SAT BOTTOM OF SCREEN? 
6$ :GO START VSVO1 DISPLAY 
PC,DISPY :GO LOAD BIT MAP 
#7,R1 SET UP PIXEL 0 DATA IN R1 —- INT 7 
#21,R0 OFFSET TO RIGHT LINE 
* eat BIT MAP 


;DO NE 
176032 t ! VTVSAV, Pe dbo ay [START DISPLAY 
001254 #2010,MAPADR ZOFFSET BIT MAP ADRS 
001256 #3,PIXCNT [SET UP PIXEL BYTE COUNT 
PIXASM :CLR PIXEL ASSEMBLY WORD 


;NOW LETS FIND THE LARGEST CELL 
001302 LARGES: MOV TOTSIZ,CHARCT ;NUMBER OF ELEMENTS TO CONSIDER 
MO @TABLEX, RO THIS IS FIRST GUESS 
:R1 POINTS TO TABLE 
1$: MP [COMPARE GUESS AGAINST NEW 
3$ :GUESS STILL GOOD 
~(R1), THHI ;GUESS SMALLER BUT CHECK NEW 
2$ ;HI_ AGAINST UPPER THESHOLD 
(R1) ,RO WITHIN BOUNDS. MAKE THIS NEW HI 
: ! (R1)+ Z INCREASE REGISTER BY 2 
001302 : ama ;COUNT THIS LAST COMPARISON 
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CZNCDA.P11 PROGRAM ROUTINE 


;THE LARGEST CELL WITHIN THE UPPER THRESHOLD IS NOW IN RO 
:NOW ACCOUNT FOR “ty THRESHOLD = BOW OUT IF TOO SMALL 
; SUBTRACT LOWER THRESHOLD 
:BR IF CELL VALUE GREATER THAN LO THRESHOLD 
DON'T DISPLAY=ALL VALUES BELOW LO THRESHOLD 
RO,CPERL SAVE LARGEST CELL OF MATRIX 


NOW PICK OUT EACH VALUE IN CORE MATRIX AND SCALE TO THE 
[PROPER INTENSITY LEVEL. THEN DISPLAY IT ON THE SELECTED DISPLAY 


001252 : TABLEX,MRXADR ;BEGIN AT TOP LEFT ROW 
001252 D #8064.,MRXADR ;OFFSET TO BOTTOM OF CORE MATRIX 
001306 MO #64. ,ROWCNT ; THERE ARE 64 CELLS PER ROW 
: @MRXADR ,R2 ;GET A CELL VALUE FROM MATRIX 

001252 AD #2 ,.MRXADR BUMP MATRIX ADRS 

ROWCNT COUNT CELL THIS ROW 

1$ BR IF ROW NOT FINISHED 
001306 #64. ,ROWCNT RESET NEXT ROW COUNT 
001252 #256. ,MRXADR [SET UP FOR NEXT ROW IN MATRIX 

2. THHI og a te HI THRESHOLD? 


;SUB LOW THRESHOLD 
BR IF CELL ABOVE LOW THRESHOLD 
2$: R4 SET CELL TO LOWEST INTENSITY 


BR MAPL 
SCLCEL: NOW ESTABLISH THE INTENSITY LEVEL 
MO #5,.R3 SCALE TO 16 LEVELS 


2$: sMUL BY 2 

s COMPARE THIS CELL TO LARGEST 
‘BR IF SMALLER 

; CHECK oe WHERE 0 DEVISOR 


ZBR 
ACCOUNT FOR GOOD SUBTRACTION 
NO DO THE SUBTRACTION 


MAKE DEVISOR SMALLER 
= COUNT POSITION 
;AGAIN IF NOT SCALLED TO 16 LEVELS YET 
[ACCOUNT FOR REMAINDER 
:BR IF TOO SMALL 
ROUND UP 


SEQ 0022 
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CZNCDA.P11 PROGRAM ROUTINES SEQ 0023 


THIS CODE DISPLAYS EACH SCALED CELL ON THE VSVO1 (ONE OF 16 LEVELS) 


013700 001254 MAPLD: ° ;SET UP BIT MAP ADRS 
704 R4 ;LOOK FOR NO _ INTENSITY 
;BR_IF NO INTENSITY 
OFFSET TO 0-17 
1$: SWAB ;PREPARE FOR PIXEL LOC 
;MOVE TO TOP 4 BITS 


‘NOW ASSEMBLE THIS PIXEL INTO PIXEL WORD 
‘NOW MAKE ROOM IN PIXEL WORD 


TADD THIS PIXEL TO OTHERS 
ZALL 4 PIXELS DONE FOR THIS WORD? 


IF NOT 
LD PIXEL WORD INTO R1 
sl BIT MAP 
;COUNT PIXEL 
7BR IF 4 PIXELS NOT ASSEMBLED YET 
C PIXASM CLR PIXEL ASSEMBLY WORD 
001256 #3,PIXCNT SRESET PIXEL COUNT 
I MAPADR ADVANCE Bg ADRS 


MAPADR ,RO ;LOAD INTO RO 
lag HAVE /—* "6a ROWS BEEN DONE? 


:BR IF 
PATWRT ;NOW GO DISPLAY PARAMETERS 
#177740,R0 : SAVE ROW POSITION BITS 
#30,R0 ;NOW LOOK FOR END OF ROW 
4$ 7BR IF NOT AT END 
001254 #20 ,MAPADR ADVANCE MAP ADRS TO NEXT ROW 
4$: DISLOP 3GO GET NEXT MATRIX DATUM 
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CZNCDA.P11 


cf 


710 
711 
712 
713 
714 
715 
716 
717 
718 


PROGRAM ROUTINES 


012777 
004537 


062737 
113737 
032777 

7 


00100 

112737 

112737 
06 


0004 
112737 
112737 


032777 
00100 


175164 
175154 
005226 
005202 
005226 


005202 


175400 


175304 


007722 
007723 


007722 
007723 


175242 


007737 
007740 


007737 
007740 


001242 
001244 


L 
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:CODE TO WRITE PARAMETER DATA AT BOTTOM OF SCREEN 


PATWRT: MOV #12000 ,aVTVPOS 
JSR R5,VTWRIT 


RS ,AWRIT 
R5,VTWRIT 
R5,AWRIT 
CAMERA+1 ,DUMMY1 
#60, DUMMY 1 
i ~ CAMOUT 
WITS, @NCSFR 
1$ 


#°U,PBUP 
#'P,PBUP+1 
BR 2s 
1$: #'D,PBUP 
MOVB #°N,PBUP+1 
; TEST FOR JOY-STICK BUTTON FLAG 
2s: BIT ee -@NCSFR 


#°U, JBUP 
#'°P, JBUP+1 
4$ 


#'°D, JBUP 

#°N, JBUP+1 
R5,VTWRIT 
R5,VTWRIT 
@NCBAR , DUMMY 1 
@NCWCR DUMMY 2 
R5,AWRIT 
R5,VTWRIT 
R5,AWRIT 


R5,VTWRIT 


;VSVO1 = SET CHAR POS,LINE 20, LEFT MARGIN 


:''CR, LOWER THRESHOLD*’ 
SDISPAY OCTAL 


:''CR, UPPER THRESHOLD"’ 
:DISPAY OCTAL 
2GET CAMERA VALUE 
ASCII 
“SAVE FOR READOUT 
TEST FOR 'PB’’ FLAG 
SET 


BR IF 
;NO= TELL OPER. IT WAS UP 


sTELL OPER. IT WAS DN 


Hie ‘S *"JOY-BUTTON’* FLAG 
;TELL OPER. IT WAS UP 


;TELL OPER. IT WAS DN 
DISPLAY CAMERA VALUE AND BUTTON STATUS 


:''Z COUNT = 


;DISPALY OCTAL 
7 INSERT **="" 
DISPLAY OCTAL 


7'MATRIX COUNT="' 


SEQ 0024 





CZNCDA NCV11 wag TE 3 MACY11 hoses 
PROGRAM ROUTINE 


CZNCDA.P11 


004056 
004064 


004066 
004070 

074 
004076 
004100 
004104 
004106 
004112 
004116 


004122 
24 


RRRREE 
REENVS 


004146 
004152 
004154 
004 160 
004162 
004170 
004172 
004176 
004200 
004204 
004 
004212 


Nm 
~\ 
oO 


013737 
005002 


001300 001234 


001310 


001234 
001242 
001244 
005226 
005202 
005226 


005202 


001276 
005202 
001310 
005202 
001312 
002116 


001272 
001674 


174754 


M 
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;DETERMINE THE # OF COUNTS IN THE MATRIX 


D 
JSR 
BCRLF 


;TEST FOR GAIN = 


TOTSIZ, TEMPO 

Re 

R3 

TABLEX,R1 

alata NOW ADD UP ALL VALUES IN MATRIX 
TEMPO 

MX SML 

R3,DUMMY1 

R2,DUMMY2 

R5,AWRIT ;TELL OPER. OCTAL 
R5,VTWRIT ; INSERT DASH 
R5,AWRIT 


R5,VTWRIT 


2 AND B GAMMA STATES 
GAIN 
1$ 
R5,VTWRIT fe oe 
TABLEX,#MATRIX+20000 ; ISOTOPE B? 
2$ sNO 
R5,VTWRIT sYES 

;° -GAMMA'' 
FREERN *IN FREE RUN MODE? 
3$ ‘BR IF NOT 

:YES, GO GET NEW DATA 


ROUTF 
COMSAV.@NCCSR RESUME THE NCV11 
LISN [DONE WITH MESSAGES 


SEQ 0025 
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CZNCDA.P11 PROGRAM ROUTINE SEQ 0026 


dt i CODE DRAWS CROSS HAIRS(VSVO1) WITH THE X & Y JOYSTICK DATA 
THE BUG WILL FOLLOW THE JOYSTICK WHEN THE INTERRUPT BAR IS NOT DEPRESSED = 
ALL PARTS WITHIN THE DISPLAYED BOX ON THE SELECTED DISPLAY SHOULD 
= ACCESSIBLE IN A UNIFORM MANNER 
A CNTRL *C' WILL GET USER BACK TO KEYBOARD MONITOR 
004712 TJov: JSR PC ERASE START FRESH 


;DRAW A or UP ON VSVO1 SCREEN FOR “et JOYSTICK CALIBRATION 
CLR RO T UP BIT MAP ADRS - TOP LINE 
073567 #73567,R1 SET UP PIXEL DATA IN R1 = INT 7 
004744 PC ,DISPY GO LOAD BIT MAP 
1$: RO > ADVANCE BIT MAP ADRS 
000040 #40,R0 ;TOP LINE DONE? 
2s ;BR IF SO 
004756 PC ,DCONT 7LOAD NEXT PIXEL 
1$ *NEXT MAP LOAD 
007740 : #7740,RO0 ;SET UP BIT MAP ADRS - BOT LINE 
004744 PC ,DISPY ;GO LOAD BIT MAP 
RO T ADVANCE ADRS 
#10000 ,RO ;BOT LINE DONE? 
4$ ;BR IF SO 
;LOAD NEXT PIXEL WORD 
NEXT MAP LOAD 
;SET UP BIT MAP ADRS SIDE LINES 
7SET UP PIXEL O DATA IN R17 —- INT 
;GO LOAD BIT MAP 
:SFT UP PIXEL 3 DATA IN R1 — INT 7 
OFFSET TO RIGHT SIDE LINE 
PC,DISPY G0 LOAD BIT MAP 
RO :GO TO NEXT ROW ON LEFT 
#7740,R0 :TO BOTTOM YET? 
001362 5$ ‘BR IF NOT 
013777 001250 174646 VTVSAV,@VTVCSR ;ENABLE BIT MAP 


NOW COLLECT ANALOG DATA FROM NCV11 JOYSTICK 
012777 004000 174622 : WBIT11,@NCSFR ;CLEAR THE DEVICE 
000001 174614 1$: S #81T0, aNCSFR CONVERT JOYSTICK 
174610 : @NCSFR ; DONE ? 


2$ ;BR IF NOT 
174606 001234 @aNC JOY, TEMPO ; STORE CONVERSION VALUES 


005356 PC ,XYAVE :GO AVG LAST 32. X-Y JOYSTICK VALUES 
000040 T 


174560 WBITS.AaNCSFR _: LOOK FOR JOY BOTTON DOWN 
$ :DON'T MOVE THE BUG 


PC ,DISPY2 :GO DISPLAY CROSS Ty - Vsvol 
1$ DO ANOTHER CONVERSION 
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CZNCDA NCV11 EXERCISER MACY11 — 


CZNCDA.P11 


PROGRAM SUBROUTINES 


013700 


001166 
001214 
000002 
001222 
001170 
001314 


000006 


004030 
020000 
001276 


001274 
000001 


174332 
000400 
174316 


000004 


000004 


174370 


174340 


001272 
174332 


8-AUG-78 
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JIGS STOIC IIIT III III IT TTT TDI ISA IIIS SSASSS SA 
ROUTINE SELECTS VSVO1 DISPLAY - SETS UP BUS ADRS AND INTENSITY LEVEL 
SAND INTENSITY LOOK-UP TABLE = THE CARRY BIT IS SET ON EXIT IF THE 
:VSVO1 IS NOT SEEN AT THE ASSIGNED BUS ADDRESS 


SSO ISISI SISOS IEEE IEIOIIUICII III OTT TTT TTT TT TT TTT TTT TTT T 


SELCTA: MOV 
MOV 
1$: MOV 


2$: MOV 


3$: MOV 


4$: MOV 
5$: CMP 


VTVADR ,RO 
AVTVCRG, R1 
RO, (R1)+ 


#2,RO0 
AVTVCSR,R1 
1$ 

VTMADR ,RO 
gee 


2 
#20.R0 
RO, (R1)+ 


#2,R0 
AVTVINT+2,R1 
2$ 

#5$ , AAERRVEC 
aVTVCRG 
avVTVCSR 
INTLUT ,RO 
RO, @VTVINT 


#401,R0 
#10000,R0 
3$ 


:ZER 
legate -AWERRVEC 


C 
(SP)+, (SP)+ 
4$ 


GET VSVO1 BASE ADRS 
:GET T PTR ADRS 
;SET UP REG. ADRS PTRS 
BUMP REG ADRS 
; CHAR nant REGS ALL SET UP? 


:BR IF 
;GET BASE ADRS OF BIT MAP 
: USING SECOND MAP? 


:BR NOT 

;POINT TO 2ND BIT MAP ADRS" S 
:CONTINUE TO BIT MAP ADRS'S 
[BUMP REG ADRS 

sALL SET UP? 

:BR NOT 


IF 
SET UP BUS TIMEOUT RETURN ADRS IF NO VSVO1 
31S CHARACTER GENERATOR TheRE? 
:1S_BIT MAP THERE? 
[SET UP ADRS & DATA OF INTENSITY LOOK-UP TABLE 
SET UP TABLE 
ZADVANCE ADRS & INTENSITY 
: TABLE LOADED? 
F NOT 


:BR I 
O CARRY SAYS VSVO1 THERE 
RESTORE ER TRAP LOC TO PT TO 6 


FIX STACK SINCE NO RTI 
CARRY ON EXIT SAYS NO VSVO1 
7GO EXIT 


SLA RE RERRERIRREERRERERERERERERREEERRER ERE KEE EERE EEE 


ROUTINE STARTS NCV11 AT SELECTED GAIN AND CAMERA 


eet, Scat EGS DerCae aanY Gm Ee ee fee Gens Geen | 


NCSTRT: MOV 


#4030,a@NCCSR 


#81T0,aNCCSR 
PC 


SET UP ZB ENABLE AND 64*64 WORD MATRIX 
; ENSURE OFFSET REG. IS SET 
UP GAIN 


:SET UP CAMERA 
:SET GO BIT 
;RE TURN 


SL RRR REE EE ERR RRR ERE ERE EERE EEE REE EERE KER ERE ERE 


ROUTINE STOPS NCV11 AND SAVES NCV11 STATUS 


LL R EERE REREA REE R ERE KE ER 


NCSTP: MOV 
BIS 


CLR 
RTS 


@NCCSR , COMSAV 


#B1T8,aNCSFR 
@NCCSR 
PC 


SAVE THE INTERFACE ACTION 
DISABLE NPR'S 
ZERO ALL STATUS 

TURN 


SEQ 0027 
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060000 


001000 
174276 


001000 
002035 


174232 


174230 
000400 


174202 


001235 
001234 
016000 


AM SUBROUTINES 


174302 


174266 
174252 


174250 
174236 


174216 


174170 
174160 
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PRE RS Reh t ek khaki de heheh deka haheiaha hata iahekahalahahelalehalehahehelaheielehaheleisheleicheiclslelslaieislaleisieielel 


;ROUTINE STOPS NCV11, SAVES STATUS AND CLEARS MATRIX CORE 
[SES OES SSIES ISIS IOSD IOI IOIOICIOISIOE IOI STIS IT I TIT TIT TIO 
NCSTP1: JSR PC, NCSTP ;GO STOP NCV11 AND SAVE STATUS 

CLR — @NCWCR CLEAR HIGH WORD 
@NCBAR CLEAR LOW WO 
WMATRIX RO {GET SET TO ZERO CORE MATRIX AREA 


(RO) + ZERO LOC 
it AMATRIX+40000 ALL DONE? 
;BR IF MORE 
Pe RETURN 


DIR II IIR III III III KIKI HEIKKI REE EH 
;ROUTINE WILL ERASE DISPLAY 
PICO IOIOIOIDIOI III IO OI IEEE IIIT TTT III IIIA SISISI ISIS ISAM 
ERASE : #1000,aVTVCSR ERASE DISPLAY (CLR BIT MAP) 
1$: avTVCSR [LOOK FOR READY 
BP 1$ [WAIT FOR IT 

#1000,aVTVCSR ; TURN OFF ERASE DISPLA 
#2035 AVTVCRG CLR CHAR SCREEN & DISABLE CURSOR 


1$: 


FICCI OIOIOI IOI IOIOIOIOIOIOIOI I IOI I TOT I TOT TOR TTT TT AAA IAN SASISIASISSSASS SSS. 
ROUTINE WILL LOAD BIT MAP (VSV01) 
:RO CONTAINS BIT MAP ADRS AND R1 THE BIT MAP DATA 
DDS UO ASIII OOIDIIII SIO IISIOII I IOICITIII IIIT IIIT TT TT TTS TTT AA 
DISPY: #400, aVTVCSR STOP DISPLAY 
MO RO, aVTVMAP [LOAD BIT MAP ADRS 
DCONT: #400, ,aVTVCSR sAGAIN | IF ENTERING HERE 
1$: aVTVCSR SREADY? 
BP 1$ 2 WAIT THEN 
-@VTVPX 


R1 LOAD BIT MAP 
#400, aVTVCSR RESUME DISPLAY 
; RETURN 


FI II IIT II IIIT RTT TTI IIIT I TR IRR RARER EERE 
;ROUTINE WILL DISPLAY X & Y CROSS HAIRS ON VSVO1 
DUIS IIIS IOIIEIOIEIOISIOIOIIOIOIOI II OTOTOT TTT ITT TT TT TT TTT TI 
bisPy2: TST aVTVCRG ;READY? 
BP DISPY2 :WAIT IF NOT 
TEMPO+1 :X NEEDS TO BE INVERTED 
TEMPO ,@VTVCHP LOAD X & Y CROSS HAIRS 
#16000,aVTVCRG ENABLE THE CROSS HAIRS 
PC : RETURN 


SEQ 0028 
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CZNCDA.P11 


PROGRAM SUBROUTINES 


000001 
000100 


174036 


173760 
001264 


001262 


001262 


001264 
001264 


173752 


D 
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DIS ISIS SIOISI CII ICICI TORII III IIIT TOT TTT TTT TTT ADI AASISSAISSSASSS SSS 
ROUTINE WIIL FILL CORE WITH AN IMAGE THAT WHEN 
= DISPLAYED WILL CONTAIN ALL THE INTENSITY LEVELS - 
;ROWS AT THE BOTTOM OF THE SCREEN WILL APPEAR BRIGHTEST - 
[NOTE THAT THIS IS ONLY A DISPLAY TEST PATTERN FOR 
;POSSIBLE DISPLAY ADJUSTMENTS BY THE USER 


CEOS IIIS ISIS ISI SIIOI ISIS ICIS TOI IIS IOI IDIOTS IOI IIE 


LBIMGE : MOV #100,R0 COUNT 64 ROWS 
MOV TABLEX,R1 :GET SELECTED ISOTOPE 
MOV #100,R2 ;COUNT 64 DATA POINTS PER ROW 
MOV #100,R3 7100 WILL REPRESENT HIGHEST INTENSITY LEVEL(100-0) 
1$: MOV R3,(R1)+ [LOAD CORE IMAGE 
DEC R2 [DONE ROW? 
BNE 1$ ;BR IF NOT 
DEC RO DONE ROWS? 
BEQ 2s BR IF SO 
SUB #1,R3 ;LOWER NEXT CELL VALUE 
MOV #100,R2 RESET ROW LENGTH COUNTER 
BR 1$ LOAD THIS ROW IMAGE 
2s: RTS PC RETURN FOR DISPLAY 


ZOO RIOR IORI IOI TOTO I ITT ATTA AIIAISISSISASSISISSSSISSSSSSSS 
: KEYBOARD INTERRUPT SERVICE ROUTINE 
ZHIS SISO IICIIOISIIOICIOIOICIICINIEIOIIOIOI IOI IOI TOI TOIT TOT TTT TA IAA IAA ISASASAS SAS 
KBINT: MOV @$TKB ,KBUF F ;READ KEY BOARD 
MOV KBUFF , a$TPB ZECHO CHAR. 
BIC #177600,KBUFF ;RID PARITY 


CMP #3 , KBUF F CNTRL ‘C'? 
BNE 1$ BR IF NOT. 
1s tA LISEN ;ABORT WHATEVER & LOOK FOR NEXT COMMAND 


SDI I III III IIT IIIT TTI IIIT IR IIIT ER RR ERR ER EE 


= ROUTINE TYPES "CR" AND 'LF* OR CHAR IN TTYOUT 


agate fk igang ee al as sleet 


TYPCR: MOV #15, TTYOUT SET UP FOR A ‘CR’ 
JSR PC, TYPO 
MOV #12,TTYOUT ;SET UP FOR LF 
TYPO: TSTB a$TPS [WAIT FOR LAST CHARACTER 


BPL TYPO 
MOV TTYOUT ,@$TPB SEND IT OUT 
RTS PC 


SEQ 0029 


E 
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CZNCDA.P11 PROGRAM SUBROUTINES SEQ 0030 


SD RII II ITI ITI TOTTORI TOTTI IOI ITI IOI IOI IIIA IAA AI NISSA SAS SISSSSSISASE 


;THIS SUBROUTINE IS CALLED WITH THE ADDRESS OF A MESSAGE TERM WITH A O BYTE 


DD I I TTR IIT III TTT TOR ITOK IO IIIS ISA II SIS NII SSIS IA 


012504 VTWRIT: MOV (R5)+,R4 ;GET ADDRESS OF MESSAGE IN R4 
174004 1$: TST aVTVCRG sWAIT FOR READY 


1$ 
(R4) ; TERM ? 
2s  ;BR IF YES 
173772 a ie sotiehenatt ;LOAD THE CHARACTER 
2$: R5 sEXIT 


SIUC IOIOIOISIIOIIDIDIOISIIOIOIOIIUIOIIOIOIDIOIOIOII IIIT TOT TTT TTT TE 
:THIS ROUTINE CONVERTS OCTAL INTO ASCII FOR DISPLAY 
5 i RRRRRRRER ARERR ER ERARERAER ARERR ERRERRRERRER ARERR EERE RE REE ER 
005340 AWRIT: (R5)+,10$ ;GET VALUE*S ADDRESS 
000102 005340 MOV e ;GET — VALUE 


SAVE R 
005354 ;LOAD LAST ADDRESS OF OCTAL TYPEOUT 
000006 005344 4 12$ ;LOAD LOOP COUNTER 


;SHIFT DATA 


005342 : 10$,1 ;COPY THE VALUE 
005342 m70770, 11$ MASK OFF UNWANTED BITS 
005342 #60,11$ MAKE ASCII OCTAL 
11$,-(RO) SAVE THE CHAR. 
Sy FINISHED ? 


(SP)+,RO 
005202 R5,VTWRIT ;DISPAY THE OCTAL # 


R5 sEXIT 


2$: 5 
NUMBEG: .BYTE 60,60,60,60,60,60 
NUMEND: .BYTE 0 
- EVEN 


000 
005356 





F 
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CZNCDA.P11 PROGRAM SUBROUTINES SEQ 0031 


BRR RII I TOI IIIT TOTO TOR TOI TOI IIIT IIIT IO IOI IOS IOI IASI IIS SSNS ISIS NSS SANE 


: THIS ROUTINE AVERAGES THE LAST 32. X=-Y JOYSTICK VALUES 


RRR EERE KEKE REE REE KEKE KEKE KARE KEKE 


g 


ad ad anh cl cl oa ad a cil a 
lelelelelelelelej{e) 
= = PP PP PS 
CONAUSWN—O 


001234 
005604 


005604 
005504 
005604 
005504 
005446 
005505 
005446 


001234 


005604 


177400 


XYBUFP, R2 
RO, (R25+ 
Re -AXYBUFE 


#XYBUF ,R2 
R2,XYBUFP 
#XYBUF ,R2 
PC,10$ 
RO,-(SP) 


R 
(SP)+,RO 
RO, TEMPO 
(SP)+,RO 
PC 


RO 


RS 
(R2)+,R5 
R5,RO 


R2 
R2,AXYBUFE 
11$ 


RO 
#177400,R0 
PC 


#XYBUF +1,R2 
0$ 


KVAVE : P ;SAVE RO 
MO 


IGET X & Y 

;GET CURRENT BUFFER POINTER 
SAVE NEW X-Y VALUE 

SEND OF BUFFER? 


:NO 

YES, GO BACK TO BEGINING OF BUFFER 
SAVE NEW BUFFER POINTER 

CALC AVE X 


SAVE IT 
: CALC AVE Y 


RESTORE RO 
EXIT WITH AVE X-Y IN TEMPO 


:ZERO SUM 
:DO A MOVB TO A REG (UNSIGNED) 


sADD IT _IN 
:SKIP OTHER VALUE 
SEND OF BUFFER? 


=NO 
:DIVIDE BY 32. 


:CLR HI BYTE 


XYBUF : 
XYBUFE=. 
005504 XYBUFP: XYBUF 
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022737 


117746 
042716 


021627 


001003 
012777 


MACY11 27(654) 
SUBROUTINES 


000176 
173322 
173316 


173240 


173234 
177600 


000025 


006453 
000006 


000015 
000004 
000002 
001161 
001135 
000100 


001140 


000001 


173160 


000001 
173136 


G 
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SA IAI I III II III III IOI IOI ICICI IOI III OO IOS SINS SAN 


*SBTTL TTY INPUT ROUT:NE 


RRR ERR EREKKKEEKKKEK EK 


-ENABL LSB 


DDSI ISO SI SISISISISIIISIIISIOISISISIOIIOIICIOIICIUITIOIOITIIOI IOI IIR IITA IAI AI SAIS AR 
> *SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

:*ROUTINE IS ENTERED FROM THE TRAP HANDLER WILL 

>*SERVICE THE TEST FOR CHANGE IN SOFTWARE Swi TCH REGISTER TRAP CALL 
z*WHEN OPERATING IN TTY FLAG MODE. 


$CKSWR: CMP 
BNE 


ASWREG, SWR 
15$ 

a$TKS 

15$ 
a$TKB,-(SP) 
#°(177, (SP) 
#7, (SP)+ 
15$ 
$AUTOB,#1 
15$ 

/SCNTLG 

“ SMSWR 
SWREG,-(SP) 
/SMNEW 
~(SP) 


-(SP) 
a$TKS 
7$ 


a$TKB,-(SP) 
#°C177, (SP) 


(SP) ,#25 
10$ 

- SCNTLU 
#6,SP 
19$ 


(SP) ,415 
16$ 

4(SP) 

11 

2(SP) ,aSWR 


. SCRLF 
SINTAG,#1 
15$ 

#100, a$TKS 


2215 be 3 SOFT-SWR SELECTED? 
H IF NO 


:SCHAR THERE? 

;;1F NO, DON'T WAIT AROUND 
TISAVE THE CHAR 
7zSTRIP-OFF THE ASCII 


; USER 
73ARE WE RUNNING IN AUTO-MODE? 
; ;BRANCH IF YES 


2 ECHO THE CONTROL-G (*G) 
TYPE CURRENT CONTENTS 
TZSAVE SWREG FOR TYPEOUT 
3:GO TYPE--OCTAL ASCII(ALL DIGITS) 
7;PROMPT FOR NEW SWR 
;-CLEAR COUNTER 
73THE NEW SWR 
37:CHAR THERE? 
::1F NOT TRY AGAIN 


:zPICK UP CHAR 
7 MAKE IT 7-BIT ASCII 


iiIS IT A CONTROL-U? 

CH IF NOT 
:3YES, ECHO CONTROL-U (*U) 
i : IGNORE PREVIOUS INPUT 
*:LET’ S TRY IT AGAIN 
225 IT A yey 


;BRANCH IF NO 
:zYES, IS IT THE FIRST CHAR? 
$6 CH IF YES 


: LF 

eh Pre | TTY KBD INTERRUPTS? 
;BRANCH IF NOT 

[RE-ENABLE TTY KBD INTERRUPTS 


SEQ 0032 





H 
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CZNCDA.P11 TTY INPUT ROUTINE SEQ 0033 
1088 006006 000002 15$: RT! : ;RETURN 
1089 006010 004737 006660 16$: JSR PC, $TYPEC 7zECHO CHAR 
1090 006014 021627 000060 CMP (SP) ,#60 z:CHAR < 0? 
1091 006020 002420 BLT 18$ : BRANCH IF YES 
1092 006022 021627 000067 CMP (SP) ,#67 ::CHAR > 7? 
1093 006026 003015 BGT 7 BRANCH IF YES 
1094 006030 042726 000060 BIC #60, (SP)+ 7 ;STRIP-OFF ASCII 
1095 006034 005766 000002 TST 2(SP) z:1S THIS THE FIRST CHAR 
1096 006040 001403 BEQ 17$ ; BRANCH IF YES 
1097 006042 006316 ASL (SP) ::NO, SHIFT PRESENT 
1098 006044 006316 ASL (SP) zz: CHAR OVER TO MAKE 
1099 006046 006316 ASL (SP) zz ROOM FOR NEW ONE. 
1100 006050 005266 000002 17$: INC 2(SP) 7zKEEP COUNT OF CHAR 
1101 006054 056616 177776 BIS -2(SP), (SP) SET IN NEW CHAR 
1102 006060 000707 BR 7$ ::GET THE NEXT ONE 
1103 006062 104401 001160 18$: TYPE ,SQUES +: TYPE ?<CR><LF> 
1104 006066 000720 BR 20$ 7SIMULATE CONTROL-U 
1105 .DSABL LSB 
1106 
1107 
1108 SER h htt t kk Shedd hahaha le dedetahalahetahahehelelehahelelalehelahehehelelehehaheieislsleleielsisieiaieieisieioielel 
ia pers ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
7*CALL: 
1111 :* RDCHR :: INPUT A SINGLE CHARACTER FROM THE TTY 
1112 :* RETURN HERE :: CHARACTER IS ON THE STACK 
1113 :* ::WITH PARITY BIT STRIPPED OFF 
1118 ; 
1116 006070 011646 $RDCHR: MOV (SP) ,-(SP) 7ZPUSH DOWN THE PC 
1117 006072 016666 000004 000002 MOV 4(SP) ,2(SP) ::SAVE THE PS 
1118 006100 105777 173040 1$: TSTB aSTKS WAIT FOR 
1119 006104 100375 BPL 1$ 7A CHARACTER 
1120 006106 117766 173034 000004 MOVB a$TKB,4(SP) ::;READ THE TTY 
1121 006114 042766 177600 000004 BIC #°C<177>,4(SP) ::GET RID OF JUNK IF ANY 
1122 006122 026627 000004 000023 CMP 4(SP) ,#23 zz1S IT A CONTROLS? 
1123 006130 001013 BNE 3$ > BRANCH IF NO 
1124 006132 105777 173006 2$: TSTB a$TkS ::WAIT FOR A CHARACTER 
1125 006136 100375 BPL 2$ : LOOP UNTIL ITS THERE 
1126 006140 117746 173002 MOVB a$TKB,-(SP) 7:GET CHARACTER 
1127 006144 042716 177600 BIC #°(177, (SP) ::MAKE IT 7-BIT ASCII 
1128 006150 022627 000021 CMP (SP)+,421 ::1S IT A CONTROL-Q? 
1129 006154 001366 BNE 2$ zi: IF NOT DISCARD IT 
1130 006156 000750 BR 1$ 77 YES, RESUME 
1131 006160 026627 000004 000140 38: CMP 4(SP) ,#140 ::1S IT UPPER CASE? 
1132 006166 002407 BLT 33 CH IF YES 
1133 006170 026627 000004 000175 CMP 4(SP) ,#175 ::IS IT A SPECIAL CHAR? 
1134 006176 003003 BGT 4$ $3 CH IF YES 
1135 006200 042766 000040 000004 BIC #40,4(SP) +.  ;;MAKE IT UPPER CASE 
1136 006206 000002 4$: RTI ::GO BACK TO USER 
1137 Eka k Laake dalahelalaialalaleidalahehelalaiahiahsislaiebelsleheieintelsilaleieininieiainisieinisiaininisieieioisiiciota 
1138 +*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
1139 7*CALL: 
1140 ;* RDLIN zz INPUT A STRING FROM THE TTY 
1141 :* RETURN HERE s ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 


I 
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CZNCDA.P11 TTY INPUT ROUTINE 


‘” 3; TERMINATOR WILL BE A BYTE OF ALL 0°S 


SRDLIN: MOV R3. -(SP) Sc SAVE RF 
CLR ($P) 3 ;CLEAR THE RUBOUT KEY 

1$: #STTYIN, R3 ::GET ADDRESS 
23: ASTTYING7, R3 ; BUFFER FULL? 

4$ :7;BR IF YES 

3:GO READ ONE CHARACTER FROM THE TTY 
(SP) +, (R3) 37GET CHARACTER 
rsa :zIS IT A RUBOUT 


;;BR IF NO 
(SP) zz1S THIS THE FIRST RUBOUT? 
6$ es F NO 
006442 #'\ 9S :z TYPE A BACK SLASH 


006 9 
177777 #~1, (SP) :zSET THE RUBOUT KEY 
: R3 ; sBACKUP BY ONE 

006444 R3,ASTTYIN pt te ot 
006442 MOVB (R3) ,9$ a TO TYPEOUT THE DELETED CHAR. 
006442 9 ; YPE 

2s 7:60 READ ANOTHER CHAR. 

(SP) ;;RUBOUT KEY SET? 


7$ 32BR IF NO 
000134 #'\,9$ 7: TYPE A BACK SLASH 
006442 9 
::CLEAR THE RUBOUT KEY 


(SP) 
000025 : #25, (R3) ses = A CTRL U? 


BN 
006453 -SCNTLU 
BR 1$ 


000022 : #22, (R3) 3231S CHARACTER A ‘“*R'’? 
3$ ; ;BRANCH IF NO 
(R3) at -g THE CHARACTER 
-SCRLF iz TYPE A “'CR'’ & LF’ 
-STTYIN stig THE INPUT STRING 
$ 0 PICKUP | ANOTHER CHACTER 
, SQUES TYPE A ° 
1$ SICLEAR THE BUFFER AND LOOP 
(R3) ,9$ 7:ECHO THE CHARACTER 


9 
#15,(R3)+ 23 CHECK FOR RETURN 
2$ T 


177777 
001162 EED 

; CLEAN RUBOUT KEY FROM THE STACK 
‘ IRESTORE R3 
2 ¢ADJUST THE STACK AND PUT ADDRESS OF THE 
000004 000002 4(SP) ,2(SP) 23 FIRST ASCII CHARACTER ON IT 
006444 000004 WSTTYIN,4(SP) mere 


£3 STORAGE FOR ASCII CHAR. TO TYPE 
-BYTE ; TERMINATOR 
$TTYIN: .BLKB :ZRESERVE 7 BYTES FOR TTY INPUT 





J 
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CZNCDA.P11 TTY INPUT ROUTINE 
006525 000012 
00501 000 
051127 
020127 


SEQ 0035 
/*U/<15><12> 
eASCIZ /*G/<15><12> 
-ASCIZ <15><12>/SWR = 


-ASCIZ / NEW = 


SCNTLU: 
SCNTLG: 
SMSWR: 


SMNEW: 
EVEN 


PE Stet te kt ke kk tke k ikl kakalake hal lahelelahaielalaielelahalelaielsleiaisleleisicisisioioielal 


-SBTTL TYPE ROUTINE 


DRESS IOISIIIICISISIOIOISISISIOINIOIIOIOIOIOIOITIUIOIIIOIOIOI IOI TOIT TOIT ITT TT ATI 

“ RROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 

*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

> *NOTE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
7 *NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
*NOTE3: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 


-* 


-ASCIZ 3;CONTROL ‘U"' 


7: CONTROL ‘'G'’ 


3 


at ad at eh il wd ol lh ld ld 
MOMINMINMPNMN NNN 
aa aad aa cath aad aed oo coed ced ac 
WOONAUSWN—O 


001157 


006724 


006660 
001156 


001154 
000001 
006660 


*CALL: 
te1) wee A TRAP INSTRUCTION 
** 


TYPE 
TYPE 


-MESADR 


STPFLG 
1$ 


3$ 
RO,-(SP) 
a2(SP) ,RO 
(RO) +,-(SP) 
4$ 

(SP) + 
(SP)+,RO 
#2, (SP) 
MHT, (SP) 
8$ 
ACRLF , (SP) 
5$ 


(SP) + 


SCHARCNT 
2$ 


PC,S$TYPEC 
SFILLC,(SP)+ 


2 
$NULL ,~ (SP) 
1(SP) 

6$ 

PC, $TYPEC 


3zMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


225 we A TERMINAL? 


YES 
7 es IF NO TERMINAL 


: SAVE RO 
33GET ADDRESS OF ASCIZ STRING 
; PUSH CHARACTER TO BE TYPED ONTO STACK 
::;BR IF IT ISN'T THE TERMINATOR 
37 1F TERMINATOR POP IT OFF THE STACK 
; ;RESTORE RO 
+ ¢ADJUST RETURN PC 


TURN 
; BRANCH IF <HT> 
3; BRANCH IF NOT <CRLF> 


7:POP <CR><LF> EQUIV 
73TYPE A CR AND LF 


2: CLEAR CHARACTER COUNT 


::I1F NOG NEXT CHAR 
:3GET # OF FILLER CHARS. NEEDED 
AND THE NULL CHAR, 
; :DOES A NULL NEED TO BE TYPED? 
[BR IF NO=-GO POP THE NULL OFF OF STACK 
[:G0 TYPE A NULL 





K 
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CZNCDA.P11 TYPE ROUTINE 


006626 105337 006724 DECB SCHARCNT ::D0 NOT COUNT AS A COUNT 
2 000770 BR 7$ OP 


;HORIZONTAL TAB PROCESSOR 


112716 8$: #’ ,(SP) : ¢REPLACE TAB WITH SPACE 
737 006660 9$: PC, $TYPEC PACE 
ep mie 


3:TAB STOP 
(SP) + : :POP SPACE OFF STACK 
2s 73GET NEXT CHARACTER 

arepee TIWAIT UNTIL PRINTER IS READY 
172256 2(SP) ,a$TPB ;LOAD CHAR TO BE TYPED INTO DATA REG. 
000002 aah HIS as CTER A CARRIAGE RETURN? 


BRANCH IF NO 
::VES~CLEAR CHARACTER COUNT 


$ EX 
000002 1$: MPB ALF, (SP) 7:1S CHARACTER A LINE FEED? 
$TYPEX ; BRANCH IF YES 
INCB (PC)+ ::COUNT THE CHARACTER 
$SCHARCNT:.WORD 0 ;zCHARACTER COUNT STORAGE 
STYPEX: RTS PC 


LR EERE EKEERKKEREEE 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


J LAER EEE EEEEERE KEKE REE EERE EERE 


3*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 


:*OCTAL (ASCII) NUMBER AND TYPE IT 
:*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


;*CALL: 
NUM, ~(SP) ; NUMBER TO BE TYPED 
3::CALL_FOR TYPEOUT 
;zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 


N 
M 7 zM=1 OR L- 
=TYPE LEADING ZEROS 
SS NSSUPPRESS LEADING ZEROS 


*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$TYPOS OR $TYPOC 

:*CALL: 

hes MOV NUM, ~ (SP) 7 NUMBER TO BE TYPED 

:* TYPON 7:CALL FOR TYPEOUT 


» ; 
ee HERE FOR TYPEOUT OF A 16 BIT NUMBER 


NUM, ~(SP) NUMBER TO BE TYPED 
7:CALL FOR TYPEOUT 


000000 TYPOS: a(SP) ,~(SP) ;zPICKUP THE MODE 

000001 007153 MO 1(SP) , SOF ILL LOAD ZERO FILL SWITCH 
007155 (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
000002 #2,(SP) ADJUST RETURN ADDRESS 


. . 
se 2 eB 


Ne 
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CZNCDA.P11 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0037 
1304 006752 000406 BR $TYPON 
1305 006754 112737 000001 007153 $TYPOC: MOVB #1,$0F LL 3;SET THE ZERO FILL SWITCH 
1306 006762 112737 000006 007155 MOVB #6, SOMODE +1 7eSET FOR SIX(6) DIGITS 
1307 006770 112737 000005 007152 S$TYPON: MOVB #5, $0CNT 3¢SET THE ITERATION COUNT 
1308 006776 010346 MOV R3,-(SP) 77SAVE R3 
1309 007 0446 MOV R4,-(SP) Zz SAVE R4 
1310 007002 010546 MOV R5,-(SP) 32SAVE_R5 
1311 007004 113704 007155 MOVB SOMODE +1, R4 33;GET THE NUMBER OF DIGITS TO TYPE 
1312 007010 005404 NEG R4 
1313 007012 062704 000006 ADD #6,R4 72SUBTRACT IT FOR MAX. ALLOWED 
1314 007016 110437 007154 MOVB R4 , SOMODE 7SAVE_IT FOR USE 
1315 007022 113704 007153 MOVB SOFILL,R4 33GET THE ZERO FILL SWITCH 
1316 007026 016605 000012 MOV aa R5 7:PICKUP THE INPUT NUMBER 
1317 007032 005003 CLR ::CLEAR THE OUTPUT WORD 
1318 007034 006105 1$: ROL Rs 7;ROTATE MSB INTO ‘'C'' 
1319 007036 000404 BR 3$ ::GO DO MSB 
1320 007040 006105 2$: ROL R5 73FORM THIS DIGIT 
1321 007042 006105 ROL R5 
1322 007044 006105 ROL 5 
1323 007046 010503 MOV R5.R3 
1324 007050 006103 3$: ROL R3 3;GET LSB OF THIS DIGIT 
1325 007052 105337 007154 DECB SOMODE :zTYPE THIS DIGIT? 
1326 007056 100016 BPL 7$ ;;BR_IF NO 
1327 007 042703 177770 BIC #177770,R3 3:GET RID OF JUNK 
1328 007064 001002 BNE 4$ zz TEST FOR 0 
1329 007066 005704 TST R4 oe ee THIS 0? 
1330 007070 001403 BEQ 5$ YES 
1331 007072 005204 4$: INC R4 DON" 7 SUPPRESS ANYMORE 0'S 
1332 007074 052703 000060 BIS #°0,R3 7sMAKE THIS DIGIT ASCII 
1333 007100 052703 000040 5$: BIS #’ ,R3 33MAKE ASCII IF NOT ALREADY 
1334 007104 110337 007150 MOVB R3,8$ Z:SAVE FOR TYPING 
1335 007110 104401 007150 TYPE 8S 3:GO TYPE THIS DIGIT 
1336 007114 105337 007152 7$: DECB SOCNT 3;COUNT BY 1 
1337 007120 003347 BGT 2$ 2 BR IF MORE TO DO 
1338 007122 002402 BLT 6$ :BR_ IF DONE 
1339 007124 005204 INC R4 ZZ INSURE LAST DIGIT ISN'T A BLANK 
1340 007126 000744 BR 2$ GO DO THE LAST DIGIT 
1341 007130 012605 6$: MOV (SP)+,R5 RESTORE R5 
1342 007132 012604 MOV (SP)+,R4 7sRESTORE R4 
1343 1 012603 MOV (SP) +,R3 a TORE R3 
1344 000002 000004 MOV 2(SP) ,4(SP) SET THE STACK FOR RETURNING 
1345 007144 012616 MOV (SP)+, (SP) 
1346 007146 000002 RTI ; sRETURN 
1347 007150 000 8$: -BYTE OQ zsSTORAGE FOR ASCII DIGIT 
1348 007151 000 -BYTE 0 7; TERMINATOR FOR TYPE ROUTINE 
1349 007152 000 $OCNT: .BYTE 0 ::;OCTAL DIGIT COUNTER 
1350 007153 000 SOFILL: .BYTE OQ 2 ZERO FILL SWITCH 
1351 007154 000000 SOMODE: .WORD 0 NUMBER OF DIGITS TO TYPE 
1352 TICES ICIS ICIS ICICI SIOITINI SIO IOI IIS OI OIOISITISIO OTIS III I TOI IIT II III 
td -SBTTL READ AN OCTAL NUMBER FROM THE TTY 
1355 SLI RR RIERA REE REE REE KER ERE REE REE ERR ERE 
1356 7*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
1357 :*CHANGE IT TO BINARY. 
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;*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
[*OCTAL DIGITS. IF AN :LLEGAL CHARACTER IS READ A ‘'?'' WILL BE TYPED 
>*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 
:*THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 


>*CALL 

pee RDOCT doy ty AN OCTAL NUMBER 

hed RETURN HERE OW ORDER BITS ARE ON TOP OF THE STACK 
‘* ‘HIGH ORDER BITS ARE IN $HIOCT 


SRDOCT: MOV (SP) ,-(SP) ;PROVIDE SPACE FOR THE 
000004 000002 MOV 4(SP) ,2(SP) SFINPUT NUMBER 
) PUSH RO ON STACK 
> :PUSH R1 ON STACK 
R2,~(SP) : PUSH R2 ON STACK 
READ AN ASCIZ LINE 
| 73GET ADDRESS OF 1ST CHARACTER 


sAND SAVE IT 
R1 +: CLEAR DATA WORD 


R2 

(RO) +,-(SP) 3=PICKUP THIS CHARACTER 

3 31F ZERO GET OUT 
7¢MAKE SURE THIS CHARACTER 
3321S AN OCTAL DIGIT 


IWWWANAW WANA WAAAY 
SINSISSSSLE SER SSS 


zi*2 
5o%4 
738 


R2 
177770 #*C7, (SP) ;¢STRIP THE ASCII JUNK 
| iia 73ADD_ IN THIS DIGIT 


2 35 
: (SP) + :: CLEAN TERMINATOR FROM STACK 

000012 R1,12(SP) : SAVE THE RESULT 
007314 R2,$HIOCT 

(SP)+,R2 7;POP STACK INTO R2 

(SP)+,R1 a4 STACK INTO R1 

(SP)+,RO :POP STACK INTO RO 

ETURN 
4$: (SP) + + CLEAN PARTIAL FROM STACK 
(RO) :zSET A TERMINATOR 
7, TYPE UP THRU THE BAD CHAR. 


0 
, SQUES Tile "CR & “99° 
1$ 


BR RY AGAIN 
$HIOCT: .WORD 0 HIGH ORDER BITS GO HERE © 


SSSSSSSReRes 


WWWA 
SPESS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
) 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


8 


5$: 
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READ AN OCTAL NUMBER FROM THE TTY SEQ 0039 


006300 
016000 007352 
000200 


011646 
016666 000004 000002 
000002 


SAREE EERE EERE EEE A RARE AREER E TREE RARER ERERRREE RES 


.SBTTL TRAP DECODER 


PETTITT TILL LILI iii iii ii iii iii iii iii) 
SS THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘'TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THRGUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
[*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


STRAP: RO,~(SP) 32SAVE RO 
MO :3GET TRAP ADDRESS 


;BACKUP BY 2 
:3GET RIGHT BYTE OF TRAP 
R ;POSITION FOR INDEXING 
$TRPAD(RO).RO  :; INDEX TO TABLE 
RO 3:G0 TO ROUTINE 


3: THIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 


$TRAP2: MOV (SP) ,-(SP) ;zMOVE THE PC DOWN 
MOV 4(SP) ,2(SP) 7zMOVE THE PSW DOWN 
RTI 7 ¢RESTORE THE PSW 


-SBTTL TRAP TABLE 


7*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE ‘‘TRAP’' INSTRUCTION. 


$TRPAD: .WORD $TRAP2 
$TYPE  ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
$TYPOC ::CALL=TYPOC  TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 


$TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
$TYPON ;;CALL=TYPON TRAP+4 (104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 


SGTSWR ;;CALL=GTSWR TRAP+5(104405) GET SOFT-SWR SETTING 


SCKSWR ;;CALL=CKSWR TRAP+6(104406) TEST FOR CHANGE IN SOFT-SWR 
$RDCHR = ;;CALL=RDCHR TRAP+7(104407) TTY TYPEIN CHARACTER ROUTINE 
SRDLIN ;;CALL=RDLIN TRAP+10(104410) TTY TYPEIN STRING ROUTINE 
$RDOCT ;;CALL=RDOCT TRAP+11(104411) READ AN OCTAL NUMBER FROM TTY 
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ee 


012737 
012737 


007542 
000340 


171506 
007546 
007450 


007542 


0 
007546 
171440 


007376 
000340 
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000024 
000026 


000024 


000024 


000024 
000026 
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FF REE RRR RE RRR KEKE EKER EEE KEKE 


-SBTTL POWER DOWN AND UP ROUTINES 


FREER REE REE KERR EKER EERE IK 


“POWER DOWN ROUTINE 


$PWRDN: MOV ASILLUP ,AMPWRVEC ;;SET FOR FAST UP 
MOV #340, aAPWRVEC +2 sgPRIO:7 
MOV RO,-(SP) 3Z;PUSH RO ON STACK 
MOV R1,-(SP) 7zPUSH R1 ON STACK 
MOV R2,~-(SP) 37PUSH R2 ON STACK 
MOV R3,-(SP) 2 H R3 ON STACK 
MOV R4,-(SP) 3 H R4 ON STACK 
MOV R5,~-(SP) 3ZzPUSH R5 ON STACK 
MOV @SWR,-(SP) 3ZPUSH @SWR ON STACK 
MOV SP, $SAVR6 33SAVE SP 
ang #SPWRUP, @APWRVEC ;;SET UP VECTOR 
BR 72 7 HANG UP 
J KKK KEKE ER ERR EKER KEK KEE KERR KEKE ERK KEENE KK 
POWER UP ROUTINE 
$PWRUP: MOV MSILLUP,QM#PWRVEC ;;SET FOR FAST DOWN 
MOV $SSAVR6, SP 3iGET SP 
CLR SSAVR6 ;zWAIT LOOP FOR THE TTY 
1$: INC SSAVR6 szWAIT FOR THE INC 
BNE $ WORD 
MOV (SP)+,@SWR :zPOP STACK INTO @SwR 
MOV (SP)+,R5 ;zPOP STACK INTO R5 
MOV (SP)+,R4 3ZzPOP STACK INTO R4 
MOV (SP)+,R3 :;POP STACK INTO R3 
MOV (SP)+,R2 3zPOP STACK INTO R2 
MOV (SP)+,R1 3 STACK INTO R1 
MOV (SP)+,RO :zPOP STACK INTO RO 
MOV #SPWRDN, @F#PWRVEC ;;SET UP THE POWER DOWN VECTOR 
MOV #340, @APWRVEC+2 77PRIO:7 
TYPE : sREPORT THE POWER FAILURE 
SPWRMG: .WORD PWRMSG 7z;POWER FAIL MESSAGE POINTER 
MOV (PC) +, (SP) = RESTART AT START1 
SPWRAD : a START1 RESTART ADDRESS 
$SILLUP: HALT 32 THE POWER UP SEQUENCE WAS STARTED 
72 3; BEFORE THE POWER DOWN WAS COMPLETE 
$SAVR6: 0 3ZzPUT THE SP HERE 





SEQ 0040 
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CZNCDA.P11 DISPLAY MESSAGES 
-SBTTL DISPLAY MESSAGES 
3THIS IS THE MESSAGE FOR THE BOTTOM OF THE SCOPE 

047514 042527 WDO01: .ASCIZ <15><12>/LOWER THRESHOLD / 

044124 042522 

046117 020104 


wD002: .ASCIZ / UPPER THRESHOLD / 


WD003: .ASCIZ <15><12>/Z COUNT=/ 
WD004: .ASCIZ / MATRIX COUNT=/ 


047517 wWDOOS: .ASCIZ / ZOOM/ 
046501 : .ASCIZ / B-GAMMA/ 


046501 : ASCII <15><12>/CAMERA # / 
020043 —_ 


: 60 
020040 ASCII / PB IS / 
ASCII = /UP JB IS / 


See 


020040 
020102 051511 
000120 3 eASCIZ /UP/ 
ASCII MESSAGES 
051012 051505 : .ASCIZ <15><12><12>/RESTARTED AFTER POWER FAILURE/ 


te 2 oe os os 
WODNAUSWNO 


o 


: 
1 
} 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


MMMM AIT 


052514 
eedhg :  .ASCIZ <15><12><12>/CZNCDA NCV-11 EXERCISER/ 


eASCIZ <15><12>/ENTER THRESHOLD VALUE IN OCTAL - THEN RETURN =/ 
051525 MSG3: eASCIZ <15><12>/BUS TIMEOUT ERROR = VSVO1 DISPLAY/ 


052040 047505 
052125 042440 051122 
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010142 0! 026440 053040 
030460 042040 
046120 054501 


Ontals 052116 : <15><12>/ENTER CONSOLE BUS ADDRESS = THEN RETURN =/ 
042514 
040440 


047122 


051525 : <15><12>/BUS TIMEOUT ERROR = NCV11/ 


<15><12>/TYPE ‘H’' FOR HELP INFO ENTER KEYBOARD COMMAND (S)/ 


<15><12>/ENTER CAMERA NUMBER 0-3 ? / 


DASH:  _.ASC1Z 


fe=-f 
HELPO: .ASCII <15><12>/MD-11-DVNCB-A NCV11 EXERCISER/<15><12><12> 


DISPLAY DATA/<15><12> 


ERASE SCOPE/<15><12> 
050117 


020040 GET LOWER THRESHOLD/<15><12> 


020040 GET UPPER THRESHOLD/<15><12> 
02 042507 
050125 042520 020122 
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an 
DISPLAY ISOTOPE A/<15><12> 


020105 
020040 DISPLAY ISOTOPE B/<15><12> 


020105 
020040 SELECT FIRST BIT MAP/<15><12> 


ae all al al ca oad al eld 
AXRAXAAAOO 
aed aed aa aod cd a cd cl 
NOUSWN—O 


SELECT SECOND BIT MAP/<15><12> 


FREE RUN MODE/<15><12> 
047515 
020040 JOYSTICK CALIB./<15><12> 


DISPLAY INTENSITY TEST/ 


HELP1: .ASCII <15><12>/N COLLECT NEW DATA/<15><12> 


MN 
So 


COLLECT MORE DATA/<15><12> 


We 2 So 
RESUSF 


SS 
WIN 


CHANGE CAMERA CHANNEL /<15><12> 


STOP COLLECTION/<15><12> 


020040 
011256 041440 046117 042514 
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ASCII MESSAGES 
052103 047511 

012 
020040 


047111 
055111 


eT EXERCISER MACY11 27(654) 


006516 
020040 
052111 
006505 
020040 
046517 
006516 
020040 
052507 
040507 


020040 


020123 
000 


F 
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INITILIZE/<15><12> 


ZOOM GAIN/<15><12> 


REGULAR GAIN/<15><12> 


OTHER CONSOLE TERMINAL/<15><12> 


HELP THE OPERATOR AND REPEAT THIS LIST/ 


BCRLF: .BYTE 15,12,0 
LOC. 20000 THRU 57776 ARE BUFFER AREA 
- END 


SEQ 0044 
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CZNCDA.P11 CROSS REFERENCE TABLE SEQ 0045 


225 226 227 228 229 
722 739 743 9694 


518 546 


773 780 788 791 


DSWR 77570 30 2 
DUMMY1 001242 723 737* 744 
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740 
768 8804 
312* 318* 480 491* 496* 


550 750 853 
1441 1443 1445 1447 1448 


501* 504* 854* 855* 
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PC =%000007 437* 464* 
576* 586* 
843* 864* 
5 8 1007* 1010* 1015* 1029* 1089 
1256* 1270* 1272s 
177772 
000240 
591* 659* 660* 666 670* 
590* 664 668* 


1454* 1455* 1464* 1482* 1483* 


529 14484 


81* 984* 
* 


839 871* 872* 8 892 917% 4 972* 
1001 1008 1011* 1012* 1013 1014* 1017" 1020* 1024* 1025 1026* 
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1028* 1373* 1397* 1416* 
=%000001 


=%000002 


=%000006 
R7 =%000007 
SCLCEL 003344 
SELCTA 04440 
SP =%000006 


STACK = 001100 


1082* 1475* 


2 
1058 
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883* 891* 
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CZNCDA.P11 CROSS REFERENCE TABLE SEQ 0050 


15094 


10314 
1266* 12714 


1239 1274 


1274 1406 


1314* 1325* 13514 


1196 1274 1403 1406 


aeenee [J 
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SSAVR6 007546 1463* 1473* 14914 

SSE 000114 79 2 2 284 
1066 
1047 1118 1124 
1274 


14444 1445 14464 14474 14484 14494 


eeeknee 
RaaKKE 


011503 1364 1 i 277 9944 1032 1038 11954 1196 12024 
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865 867 877 879 887 


890 
955 1034 


966 968 995 997 
1355 1406 1409 1449 1452 1468 


1449 1441 1445 1446 
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80 
1387 
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CZNCDA.P11 
MOV 274 
307 
414 
483 
526 
596 
717 
820 
907 
971 
1058 
1245 
1370 
1455 
1478 
MOVB 541 
1066 
1307 
NEG 1312 
NOP 42 
RESET 319 
ROL 318 
ROR 641 
RTI 142 
1192 
RTS 843 
SEC 845 
SUB 607 
SWAB 653 
TRAP 1430 
TST 313 
835 
TSTB 801 
-ASCII 180 
1626 
ASCIZ 182 
1543 
-BLKB 1195 
-BYTE 152 
1348 
-DSABL 1105 
- ENABL 1 
- END 1686 
-ENDC 6 
284 
904 
1039 
1227 
1442 
1486 
-EQUIV 18 
102 
-EVEN 994 
IF 2 


CROSS REFERENCE TABLE 


8-AUG-78 


C 
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— 


183 


SEQ 0054 
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CZNCDA.P11 CROSS REFERENCE TABLE SEQ 0055 


3 


850 
943 
109 
355 
447 
278 
911 
109 
410 


— st 


ERRORS DETECTED: 
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*CZNCDA,CZNCDA/CRF /SOL=CZNCDA 
RUN-TIME: 12 6 1 SECONDS 
CORE USED: 18K 





